//===========================================
// [] The PlutoEA Project []
// http://opensvn.csie.org/PlutoEA
// -----------------------------------------
// - ľvݷ - gJA
//===========================================
alberta_in,16,28,4	script	ľvݷ	61,{
	mes "[ľvݷ]";
	mes "O....ȤH...?";
	next;
	switch (select("զXĤ::ťզXĤi:")) {
	case 1:
		mes "[ľvݷ]";
		mes "~F?znզX@Ĥ?";
		next;
		switch (select("Ĥ:Ĥ:Ĥ:զĤ:ŦĤ:Ĥ:")) {
		case 1:
			setarray .@need,507,713;
			setarray .@amount,2,1;
			set .@price,3;
			set .@gain,501;
			break;
		case 2:
			setarray .@need,507,508,713;
			setarray .@amount,1,1,1;
			set .@price,5;
			set .@gain,502;
			break;
		case 3:
			setarray .@need,508,713;
			setarray .@amount,2,1;
			set .@price,10;
			set .@gain,503;
			break;
		case 4:
			setarray .@need,509,713;
			setarray .@amount,2,1;
			set .@price,20;
			set .@gain,504;
			break;
		case 5:
			setarray .@need,510,713;
			setarray .@amount,2,1;
			set .@price,30;
			set .@gain,505;
			break;
		case 6:
			setarray .@need,511,713;
			setarray .@amount,2,1;
			set .@price,3;
			set .@gain,506;
			break;
		case 7:
			close;
		}
		if(Zeny<.@price) {
			mes "[ľvݷ]";
			mes "Ĥ٭naӤ@ǿ!zŤӭn F! uO̥!";
			mes "uXh!";
			close;
		}
		set .@size,getarraysize(.@need);
		for(set .@i,0; .@i<.@size; set .@i,.@i+1) {
			set .@max[.@i],countitem(getelementofarray(.@need,.@i)) / getelementofarray(.@amount,.@i);
		}
		if(.@price)
			set .@max[.@i],Zeny / .@price;
		else
			set .@size,.@size-1;
		for(set .@i,0; .@i<.@size; set .@i,.@i+1) {
			if(.@max[0] > .@max[1])
				deletearray .@max[0],1;
			else
				deletearray .@max[1],1;
		}
		if(.@max==0) {
			mes "[ľvݷ]";
			mes "ĤsƳSa!zŤӭn F! uO̥!";
			mes "uXh!";
			close;
		}
		mes "[ľvݷ]";
		mes "nh?";
		next;
		switch (select("զX:wƶq:")) {
		case 1:
			set .@num,.@max;
			break;
		case 2:
			mes "[ľvݷ]";
			mes "бzg 100 HU.Y@NNg 0 .";
			mes "ݱzƥiզX" +.@max+" ~.";
			while(1) {
				next;
				input .@num;
				if(.@num>100 || .@num<0) {
					mes "[ľvݷ]";
					mes "u100ӥHU!";
					continue;
				}
				break;
			}
			if(.@num==0) {
				mes "[ľvݷ]";
				mes "uXh!";
				close;
			}
			if(.@num > .@max) {
				mes "[ľvݷ]";
				mes "ƩO?";
				close;
			}
			break;
		case 3:
			mes "[ľvݷ]";
			mes "ֺua!";
			close;
		}
		if(@menu==2) {
			delitem 507,.@num;
			delitem 508,.@num;
		}
		else {
			delitem .@need[0],.@num*2;
		}
		delitem 713,.@num;
		set Zeny,Zeny-.@price*.@num;
		getitem .@gain,.@num;
		mes "[ľvݷ]";
		mes "nF.^ha.";
		mes "O! aĪOk!";
		close;
	case 2:
		mes "[ľvݷ]";
		mes "ĤiHH_O.LuOUӤw...";
		mes "u...~jF|^ХHeƱ.";
		mes "ĤuOĪ@...uOo˦Ӥw.";
		close;
	case 3:
		mes "[ľvݷ]";
		mes "...z̳oǤpåuOФH... n,ڷ|JӧiDz.";
		next;
		mes "[ľvݷ]";
		mes "įOiHϥΪ,LڭӤHOĤ,ĪG|n.";
		next;
		mes "[ľvݷ]";
		mes "pGz̨D,ڴN|Ĥz,LOKO,ڭn@IO,@ڪsο,ƥؤ|ܦh.";
		next;
		mes "[ľvݷ]";
		mes "Ĥ - ^0098E5 į x2, Ų~ x1, 3 .^000000";
		mes "Ĥ - ^0098E5 į x1, į x1, Ų~ x1, 5 .^000000";
		mes "Ĥ - ^0098E5 į x2, Ų~ x1, 10 .^000000";
		next;
		mes "[ľvݷ]";
		mes "զĤ - ^0098E5 զį x2, Ų~ x1, 20 .^000000";
		mes "ŦĤ - ^0098E5 Ŧį x2, Ų~ x1, 30 .^000000";
		mes "Ĥ - ^0098E5 į x2, Ų~ x1, 3 .^000000";
		close;
	case 4:
		mes "[ľvݷ]";
		mes "uO_ǪH,ܭnX,F]SNLhF!";
		close;
	}
}
